home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue50 / HTML / dpoEmployee.dfm / dpoEmployee.txt
Encoding:
Text File  |  1999-08-08  |  279 b   |  14 lines
  1. inherited Employee: TEmployee
  2.   inherited qryMain: TQuery
  3.     SQL.Strings = (
  4.       'SELECT * FROM Employee WHERE EmpNo = :EmpNo')
  5.     ParamData = <
  6.       item
  7.         DataType = ftInteger
  8.         Name = 'EmpNo'
  9.         ParamType = ptInput
  10.         Value = 0
  11.       end>
  12.   end
  13. end
  14.